;DATE: 12-20-93
;PROGRAM: VTEXT.LSP
;PROGRAMMER: ROGER D. SECURA
;APPLICATION: ACAD12 DTEXT
;
;PROGRAM FUNCTION: This lisp program will automatically align text
;                 along any vertical line selected in the drawing.
;                 First, load VTEXT by entering  (load "VTEXT") at
;                 the autocad prompt inside an autocad drawing.
;                 Select any vertical line in the drawing. Next,
;                 pick the text you want to align along the vertical
;                 line. The program will "pop" your text next to the line.
(defun C:vtext ()
(setq l(entget(car(entsel "\nSelect Line: "))))
(setq bl(cdr(assoc 10 l)))
(setq sl(car bl))
(setq index 0)
(repeat 100
(setq t(entget(car(entsel "\nSelect Text: "))))
(setq old(cdr(assoc 10 t)))
(setq mt(car old))
(setq yt(cdr old))
(setq old2(cons 10 old))
(setq np(cons sl yt))
(setq new(cons 10 np))
(setq t(subst new old2 t))
(entmod t)
(setq index(1+ index))
 )
)